#!/usr/bin/perl
# arrayuse.pl
use warnings;
use strict;

use Game::Card2;   # imports 'NAME' and 'SUIT'

my $card = new Game::Card2('Ace', 'Spades');
print $card->[NAME];   # produces 'Ace'
$card->[SUIT] = 'Hearts';   # change card to the Ace of Hearts
print " of ", $card->[SUIT];   # produces ' of Hearts'
